home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / citta / mi119.dir / 00133_Script_133 < prev    next >
Text File  |  1983-01-30  |  606b  |  21 lines
  1. on exitframe
  2.   global a_blocca,att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite,at_hil_dacast,at_hil_quanti,at_hil_sprite  
  3.   if a_blocca = false then
  4.     ATT_HILITEC att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite
  5.     gestione_cursori   -- ex curan e curap
  6.   end if
  7.   at_hil at_hil_dacast,at_hil_quanti,at_hil_sprite
  8.   go to the frame
  9. end
  10. on mouseup
  11.   --  if the mouseH > 53  and the mouseH <640 and the mouseV >0 and the mouseV < 480 then
  12.   global a_blocca, viff_da,viff_a
  13.   set a_blocca =false
  14.   
  15.   viff viff_da,viff_a
  16.   gestione_cursori
  17.   updatestage
  18.   
  19. end if
  20. end
  21.